inherited frmModuleReportAdd: TfrmModuleReportAdd
  Left = 751
  Top = 424
  VertScrollBar.Range = 0
  BorderStyle = bsDialog
  Caption = #1044#1086#1073#1072#1074#1083#1077#1085#1080#1077' '#1092#1086#1088#1084#1099' '#1082' '#1086#1090#1095#1077#1090#1091
  ClientHeight = 83
  ClientWidth = 336
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel [0]
    Left = 14
    Top = 8
    Width = 29
    Height = 13
    Caption = #1054#1090#1095#1077#1090
  end
  object Label2: TLabel [1]
    Left = 6
    Top = 34
    Width = 37
    Height = 13
    Caption = #1060#1086#1088#1084#1072
  end
  object DBText1: TDBText [2]
    Left = 50
    Top = 8
    Width = 279
    Height = 17
    Anchors = [akLeft, akTop, akRight]
    DataField = 'NAME'
    DataSource = sprReports.dscRefer
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold, fsUnderline]
    ParentFont = False
  end
  inherited Panel1: TPanel
    Top = 56
    Width = 336
    inherited BitBtn1: TBitBtn
      Left = 129
    end
    inherited BitBtn2: TBitBtn
      Left = 231
    end
  end
  inherited ToolBar1: TToolBar
    Width = 336
    Height = 0
  end
  object lcbModule: TDBLookupComboboxEh [5]
    Left = 50
    Top = 31
    Width = 279
    Height = 19
    AlwaysShowBorder = True
    Anchors = [akLeft, akTop, akRight]
    EditButtons = <>
    Flat = True
    KeyField = 'ID'
    ListField = 'MODULENAME'
    ListSource = dscFormsList
    TabOrder = 2
    Visible = True
  end
  inherited ActionList1: TActionList
    Left = 144
    Top = 4
    inherited aSave: TAction
      OnExecute = aSaveExecute
    end
    inherited aCancel: TAction
      OnExecute = aCancelExecute
    end
  end
  object dsFormsList: TpFIBDataSet
    SelectSQL.Strings = (
      'select um.id, um.modulename FROM usermodule um'
      
        ' where not exists(select 1 from userfrmrpt ufr where ufr.formcod' +
        'e = um.id and ufr.reportcode = :report_id)'
      '   and um.modulename is not null and um.modulename <> '#39#39
      'order by um.modulename')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    CSMonitorSupport.Enabled = csmeTransactionDriven
    Left = 202
    Top = 14
    object dsFormsListID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsFormsListMODULENAME: TFIBStringField
      FieldName = 'MODULENAME'
      Size = 40
      EmptyStrToNull = True
    end
  end
  object dscFormsList: TDataSource
    DataSet = dsFormsList
    Left = 234
    Top = 14
  end
  object qInsertRepModule: TpFIBQuery
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    SQL.Strings = (
      
        'insert into USERFRMRPT(FORMCODE,REPORTCODE)values(:FORMCODE,:REP' +
        'ORTCODE)')
    CSMonitorSupport.Enabled = csmeTransactionDriven
    Left = 234
    Top = 46
    qoAutoCommit = True
    qoStartTransaction = True
  end
  object trLists: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    CSMonitorSupport.Enabled = csmeDatabaseDriven
    Left = 480
    Top = 284
  end
  object LocalTrans: TpFIBTransaction
    TimeoutAction = TARollback
    CSMonitorSupport.Enabled = csmeDatabaseDriven
    Left = 202
    Top = 46
  end
end
